.DO Externa! 

.LSTOfi 

.FIN 

;>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> This file describes all the definitions < Constants, Uars, I/O, 
;> etc. > that is used in the Midget Firmware. 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>> 
.Page 

;>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Z8 Working Register/ Interna I Ram Conventions 

• > 

;>>>>>>>>>>>>>>>>>>>>>>>> 



>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Working Register Set $0 



>>>: 



>>>>>>>>>>>>>>>>>>>> 
Register 




Registers 0:3 are used as I/O ports 



Use 



1/0: Port { Output } 
Bit 0: RdrS 
Bit 1: Rdr9 
Bit 2: fldrlO/RWI- 

RWI : Reduced Write Cuurent 
Bit 3: Rdr1t/PC- 

PC: Pre-Compensation 
Bit 4: Servo JReset- 
Bit 5: FormatJEnable- 
Bit 6: Z8_Test- 
Bit ?: Read-Header 



I/O: Port 1 { Input/Output 
Bit 0: fldrO/flppie_BusG 
Bit 1: Rdr1/flpple_Bus1 
Bit 2: Rdr2/Rpple_Bus2 
Bit 3: Rdr3/Rppie_Bus3 
B i t 4 : Rdr4/fipp t e_Bus4 
Bit 5: Rdr5/RppleJBus5 
Bit 6: Rdr6/flppie_Bus6 
Bit 7: Rdr?/flpple_Bus7 



} 



1: 
2: 



/0: Port 2 { input/Output 
Bit 0: Start- 

EccError- 
Command { input } 
Busy 
MselO 
Mse i 1 

SloRdy { Input > 
DiskJJW- 



Bit 
Bit 
Bit 3: 
Bit 4: 
Bit 5: 
Bit 5: 
Bit 7: 



I /0: Port 3 { Input /Output } 
Bit 0: SioDataln { input > 
Bit 1: Sector { input > 
Bit 2: Index { input } 



> Bit 3: Sector-Done 

> Bit 4: DataJlemoryJSelect 

> Bit 5: HeacLSeiect 

> Bit 6: Z8_RWJCIock 

> Bit 7: SioDataOut 
> 



;>>>>>>>>>>>>>>>>>>>>>>>> 
Page 

•>>>>>>>>>>>>>>>>>>>>>>>> 



> 

> Misc. Conventions 

> 

> 1 . Each maj or rout i ne is preceded by a psuedo-eng ! i sh 

> "Pascal" like explanation of the inputs, outputs, 

> and algorithm, as well as register assignments. 

> 

> 2. KeyUords: 

> BOOLEAN : True/False values: $01 if true, $00 if false 

> BIT : Single bit values: 1 if true, if false 

> BYTE : 8 bit values 

> WORD : 16 bit values 

> PTR : 16 bit address 
> 



;>>>>>>>>>>>>>>>>>>>>>>>> 

.DO ListDefs 

. LSTQN 

.Page 

.FIN 

RamQffset .Equ $1000 

EpromOffset .Equ $1000 

;>>>>>>>>>>>>>>>>>>>>>>>> 

;> Constant Definitions: I/O Stuff 
•>>>>>>>>>>>>>>>>>>>>>>>> 



PortO 


.Equ 





; I /0 Port def i n i t i ons 


Portl 


.Equ 


1 


i 


Port2 


.Equ 


2 


; 1 


Ports 


.Equ 


3 


; \\/ 


; > Port Defs: 








TimeOut 


.Equ 


$01 


;hardmar& timeout flag 


EccTest 


.Equ 


$02 


;fictive Low to Ecc gate arrm^ chip 


RWi 


.Equ 


$04 


; Reduced Write Current { active low } 


PC 


.Equ 


$08 


; Write Pre-compensation { active low } 


ServoRst 


.Equ 


$00 


;Servo Reset { active low > 


Not_ServoRst 


.Equ 


$10 


Not_FmenL 


.Equ 


$20 


; Format Enable { active low } 


FmenL 


.Equ 


$00 




RcEraseL 


.Equ 


$20 




Hot_RcEraseL 


.Equ 


$00 




ZTestL 


. Equ 


$00 


;Z8 Test switch { 1=normai, 0=test > 


Not_2TestL 


Equ 


$40 




RdHdrH 


.Equ 


$80 


; State Machine: Ignore Header 


Not_RdHdrH 


.Equ 


$00 


; { active hi } 


;> Port 1 Defs: 








; > { none } 









;>■ Port 2 Defs: 



StartL 


. Equ 


$00 


NotJStartL 


. Equ 


$01 


EccError 


.Equ 


$00 


Ho t _EceEr ror 


.Equ 


$02 


Cmd 


.Equ 


$04 


Bsy 


.Equ 


AAA 

$08 


riOtJBsy 


.Equ 


$00 


Mse 10 


.Equ 


$10 


MseM 


.Equ 


$20 


flpp i e_J1em 


.Equ 


$00 


ZSJIem 


.Equ 


$10 


DiskJIem 


.Equ 


$20 


Z8_Hpp 1 e 


.Equ 


$30 


S i oRdy 


.Equ 


$40 


DrwL_Read 


.Equ 


$80 


Drwl Wr i te 


.Equ 


$00 


P2t_!n 


.Equ 


$02 


P22_in 


.Equ 


$04 


P26_!n 


-Equ 


$40 



;> Por t 3 Defs: 

Sec tor Mark .Equ $02 

i ndexMark . Equ $04 

SectOnL .Equ $08 

Dm .Equ $10 

HsO .Equ $20 

Zrwck .Equ $40 

. Page 

■ >>>>>>>>>>>>>>>>>>>>>>>> 



; > Constant Def i n i t i ons 

;> 

;>>>>>>>>>>>>>>>>>>>>>>>> 



Mrk_l o 


.Equ 


$00 


MrkJSys 


.Equ 


$10 


WrkJExcept 


.Equ 


$20 


l4rk_JSys2 


.Equ 


$30 


Mrk_Scr 


.Equ 


$40 


MrkJCntrl 


.Equ 


$F0 


r-0 


.Equ 





r1 


.Equ 


1 


r-2 


.Equ 


2 


r3 


.Equ 


3 


r-4 


.Equ 


4 


r5 


.Equ 


5 


r6 


.Equ 


6 


r7 


.Equ 


7 


r8 


.Equ 


8 


r9 


.Equ 


9 


rfl 


.Equ 


$fi 


rB 


.Equ 


$B 


rC 


.Equ 


$C 


rD 


.Equ 


$D 


rE 


.Equ 


$E 



; State Machine: Start Execution 
; { active low } 

;Flags Ecc circuitry { active low > 

;fipple i /o signal: CMC { active hi > 
;flpple i/o signal: BSV { active hi > 

; Memory Select bit 
; Memory Select bit 1 

;Mem < — > Rpple 
;Mem < — > Z8 

;Mem < — > State Machine ( Disk > 
;Z8 <--> Apple 

; Servo's Sio is ready { active hi } 

; State Machine: Disk Read /Write 

; { Write active lo } 

;Port 2 Bit 1 is an input 
;Port 2 Bit 2 is an input 
;Port 2 Bit 6 is an input 



Sector Mark from drive { active hi > 
Index Mark from drive { active hi } 
Sector Done { active low } 
Data Memory selected { active iow } 
Head select { 0=headJO, 1=head_1 > 
Z8 test clock for state machine 



Registers 



; Working regs set = I/O and scratch 

; Working regs set 1 = System 

; Working regs set 2 = Exception set 

; Working regs set 3 = System2 

; Working regs set 4 = Scratch set 

; Working regs set F = control set 



; working reg 


ster 





; working reg 


ster 


1 


; working reg 


ster 


2 


; working reg 


ster 


3 


; working reg 


ster 


4 


; working reg! 


ster 


5 


; working reg 


ster 


6 


; working regs 


ster 


7 


; working reg' 


ster 


8 


; working reg 


ster 


9 


; working reg 


ster 


fl 


; working reg 


ster 


B 


; working reg 


ster 


C 


; working reg 


ster 


D 


; working reg 


ster 


E 



rF 


.Equ 


w 


j working register F 


H i _Rw i _Reg 


.Equ 


$20 


; ho 1 ds cy 1 i nder va 1 ue for RW 1 and PC 


Lo—Flw? i _Reg 


. Equ 


%Z 1 




PSec tor 


Cm • 

. tqu 




; last phsytcal sector 


rree_ o 1 7 ! ST. 


. Equ 




, po inter to seit test routine 


Excp t_S ta t us 


. Equ 




\ excep 1 1 on s t a tus reg i s ter 


Recovery 


.Equ 


$80 


; global recovery bit { active hi } 


SprTb I -Warn 


.Equ 


$40 


; spare table has is almost full 


Buf —Damage 


.Equ 




jStflach entry buffer is not zero 


rWTnSt 


. Equ 


tin 

$ 1U 


jUidget was power reset. 


N7£H~rk Q4<-i4 

nc.ero_ 5 ta t 


. Equ 


<fcnp. 


f last system status was non zero 


Leu-JbtQt 


. Equ 


4>u 1 


, state of LED on control ler 


S 1 TTSt_nesU I t 


. Equ 


$2j 


; results of self test 


Ham_ hai i 


.Equ 


$80 


; wr i teab I e memory fa i 1 ure 


EpromJFa i I 


.Equ 


$40 


;Eprom checkbyte mismatch 


D i sk JSpeed 


.Equ 


$20 


;Disk not up to speed 


Servo_Fai 1 


.Equ 


$10 


; Servo is not healthy 


oector_JLnt 


Cm • 

.tqu 


!J>Uo 


;Not enough sectors! 


o tate_ ra i 1 


.Equ 


5|>U4 


; State machine not healthy 


rwJ_r<3i I 


. Equ 




' t can ' t read/wr i te 1 


no_opr ! d i 


. Equ 




jho Spare Table found! 


RdStat 


.Equ 


$26 


; status of last read operation 




. Equ 


to? 


nUHiDer ot retries ot last reaa 


wri tat 


. Equ 


too 

$.£0 


j status of last write operation 


MrEr rLn t 


. Equ 




j number of retries of last write 


SeekCount 


.Equ 


$2fl 


; number of seeks since last arm swing 


rWT 1 gu 


Cm I 

.Equ 


3P2C 


; power on flag 


PwrFlgl 


.Equ 


$20 




PwrFlg2 


.Equ 


$2E 




PwrF!g3 


.Equ 


$2F 




Dm t_Coun ter 


r-_. » 

.Equ 




; double register counter 


Scr_Cntr 


.Equ 


•too 


; double register counter 


CurjCyi 


.Equ 


$50 




Cyi inder 


. tqu 






neao 


.Equ 






Sector 


. Equ 






U I b-r\0 tw tU5 


. Equ 




f current state ot some oisk params 


ur i— f r ulis 


I-™ j 




f ski i twur is Ui i tr ut-is i I *Jy 


RriHHr-Rcr-n i 


. equ 


<ltd.n 


^reaa tne neuuer uitsr u »eccii opsration 


WrjDp 


.Equ 


$20 


; current access is for a write 


Parked 


.Equ 


$10 


; heads are curren ly parked 


i_'jny_-jtiet*. 


. Equ 




,qo £. imui i ieeKS Tor i long one 


Mi j 1 + i R 1 1/ 

1 1 U 1 t i D I is 


. Equ 




1 1 lu 1 1 1 d I ock semupnore 


SeekComplete 


.Equ 


$02 


; head/arm is not in motion 


GffsetJDn 


.Equ 


$01 


;Ruto_0ffset is currently on 


— 

Seek—Type 


.Equ 




j oeek w/wo flu to—Of f set 


fin to Ti mp> 


Pill J 




■ ^■kftfii"'*! Tnh i p mr- 1 R i nr-k 


Unused_Reg 


.Equ 


$59 


;ref lection of bank register 


RlkStat 


.Equ 


$5R 


; current state of cache logical block 


CachSeek 


. Equ 


$80 


;a seek is needed for this block 


CachHdChg 


Equ 


$40 


;a head change is needed for this block 



S_Block 


.Equ 


$01 


;this block is a spare 


block 


B_Block 


.Equ 


$02 


;this block is a bad block 


Cache_ Index 


. Equ 


$5B 


; 1 ndex i n to cache assum i ng sequen t i a 1 


Lst_HiCyl 


.Equ 


$5C 


; previous seek address 




LstJLoCyl 


.Equ 


$50 






Lst_Head 


.Equ 


$5E 






Lst_3ector 


.Equ 


$5F 






POIm—lmage 


.Equ 


$04 






P3m_lmage 


.Equ 


$05 






POImJStMach 


.Equ 


$05 






P3m^StMach 


.Equ 


$07 






DnUlask 


.Equ 


$08 






StartJIask 


.Equ 


$09 






ScrRegO 


.Equ 


$40 


; Scratch register 





ScrReg 1 


.Equ 


$41 


; Scratch register 


1 


ScrReg2 


.Equ 


$42 


; Scratch register 


2 


ScrRegS 


.Equ 


$43 


; Scratch register 


3 


ScrReg4 


.Equ 


$44 


; Scratch register 


4 


ScrRegS 


.Equ 


$45 


; Scratch register 


5 


ScrReg& 


■ Equ 


$46 


; Scratch register 


6 


ScrReg? 


.Equ 


$4? 


; Scratch register 


? 


ScrRegS 


.Equ 


$48 


; Scratch register 


8 


SerReg9 


.Equ 


$49 


; Scratch register 


9 


oCPnegn 


.Equ 


^ ACS 

$4n 


; Scratch register 


R 


ScrRegB 


.Equ 


$4B 


; Scratch register 


B 


ScrRegC 


.Equ 


$4C 


; Scratch register 


C 


ScrRegD 


.Equ 


$4D 


; Scratch register 


D 


ScrRegE 


.Equ 


$4E 


; Scratch register 


E 


ScrRegF 


.Equ 


$4F 


; Scratch register- 


F 



R240 .Equ 240 

R241 .Equ 241 

R242 .Equ 242 

R243 .Equ 243 

R244 .Equ 244 

R245 .Equ 245 

R246 .Equ 246 

R24? .Equ 247 

R248 .Equ 248 

R249 .Equ 249 

R250 .Equ 250 

R251 .Equ 251 

R252 .Equ 252 

R253 .Equ 253 

R254 .Equ 254 

R255 .Equ 255 



.Page 



;Sio Register 
; Timer Mode Register 
; Counter /Timer Register 1 
;T1 Prescaier Load Register 
; Counter /Timer Register 
;T0 Prescaier Load Register 
;Port 2 Mode Register 
;Port 3 Mode Register 
;Port and 1 mode Register 
; i n terr up t Pr i or i ty Reg i s ter 
; interrupt Request Register 
; Interrupt Mask Register 
;Cpu Flags Register 
; Working Register Set Pointer 
;Hi-Byte of Stack Pointer 
; Low-Byte of Stack Pointer 



>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> These Symbols are Predefined inside the assembler 

> 

> Sio .Equ 240 ;Sio Register 

> Tmr .Equ 241 ;Tiroer Mode Register 

> T1 .Equ 242 ; Counter /Timer Register 1 

> Prel .Equ 243 ;T1 Prescaier Load Register 

> TO Equ 244 ; Counter /Timer Register 



> 


PreO 


.Equ 


245 


;T0 Prescaler Load Register 


> 


P2m 


.Equ 


1 AC 

24D 


;Port 2 node Kegister 


> 


P3ffi 


.Equ 


247 


;rort o node Kegister 


> 


P01m 


.Equ 


248 


;Port and 1 mode Register 


> 


Ipr 


.Equ 


249 


; Interrupt Priority Register 


> 


Irq 


.Equ 


250 


; interrupt Request Register 


> 


imr 


.Equ 


251 


interrupt Mask Register 


> 


Flags 


.Equ 


252 


;Cpu Flags Register 


> 


Rp 


.Equ 


253 


; Working Register Set Pointer 


> 


Sph 


.Equ 


254 


;Hi-Byte of Stack Pointer 


> 


Sp! 


.Equ 


255 


; Low-Byte of Stack Pointer 


> 


>>>>>> 


>>>>>>>>>>>>>>>>> 










.Page 






? 


>>>>>> 


>>>>>>>>>>>>>>>>> 






> 
> 




Constant Definitions: Control Register Stuff 


y 

y 




>>>>>>>>>>>>>>>>> 






> 


Control Register 240 < $F0 ): Seria 


I/O register 


> 




{ Read: Receive Data } 




> 




{ Write: 


Transmit Data 


> 



;> Control Register 241 < $F1 >: Timer Mode Register 



; > Tout Modes : B i ts ? and 6 



TOJOut 


.Equ 


$40 


;Port 3, bit 6 gets timer out 


T1_0ut 


.Equ 


$80 


;Port 3, bit 6 gets timer 1 out 


intJOut 


.Equ 


$C0 


;Port 3, bit & gets system clock 


Tin Mode: 


Bits 5 and 


4 




ExtJCIk 


.Equ 


$00 


;use external clock on timer 


Gate_Clk 


. Equ 


$10 


; use internal clock on timer 


Non_Retrig 


.Equ 


$20 


; load T1 after a high- low trans 


Re trig 


.Equ 


$30 


; I ike Non-Retrig, but load on a II 


T1_CntEn 


. Equ 


$08 


; enable T1 counting operations 


TUCntDis 


.Equ 


$00 




T1_Load 


.Equ 


$04 


;Load T1 


TO-JCntEn 


.Equ 


$02 


; enable TO counting operations 


TO-CntDis 


.Equ 


$00 




T0_Load 


.Equ 


$01 


;Load TO 


Control Register 242 


< $F2 ): 


Counter/Timer Register T1 




{ Write 


: Initial 


Value > 




{ Read: 


Current Count Ualue } 



;> Control Register 243 < $F3 >: T1 Prescaler Load Register < Pre 1 > 

Single-Pass .Equ $00 

f1od_n .Equ $01 

T1_lnt_JCIk .Equ $02 

T1_Ext_£ik .Equ $00 
;> Bits 7:2 are used to provide a 6-bit binary Prescale Ualue 

;> Control Register 244 (. $F4 ): Counter/Timer Register TO 

; > { Wr i te : I n i t i a I Ua I ue } 

;> { Read: Current Count Ualue } 



> Control Register 245 < $F5 >: TO Prescaler Load Register ( Pre ) 

> { Same as Pre 1, but no external clock } 



> Control Register 246 i $F6 ): Port 2 Mode < P2m> 

> When a bit of P2m is set, the corresponding bit in Port 2 is defined 

> as an input, if reset then the corresponding bit for Port 2 is 

> defined as an output. 



Control Register 247 


< $F7 ): 


Port 3 Mode ( P3m > 




Open_Dra i n 


. Equ 


$00 






Totem_Pol 


.Equ 


$01 






B2J5_lo 


.Equ 


$00 


;Bit 2=input, 


Bit 5=output 


B2J5_Hs 


.Equ 


$04 


;Bit 2=DRU0-, 


Bit 5=RDVQ- 


B3_4_lo 


.Equ 


$00 


;6it 3= input, 


Bit 4=output 


B3_4_ldm 


.Equ 


$10 


;Bit 3= input, 


Bit 4=DM- 


B3_4_Hs 


.Equ 


$18 


;Bit 3=DRU1-, 


Bit 4=RDY1- 


B1J6-IO 


.Equ 


$00 


;Bit 1=Tin , 


Bit 6=Tout 


B1_6_Hs 


.Equ 


$20 


;Bit 1=DRU2-, 


Bit 6=RDV2- 


BO_?_lo 


.Equ 


$00 


;Bit 0= input, 


Bit ?=output 
, Bit 7=Sio out 


B0_7_Ser 


.Equ 


$40 


;Bit 0=Sio in 


ParJOn 


.Equ 


$80 


; Par i ty On 




Par_Off 


.Equ 


$00 


;Parity Off 





> Control Register 248 


< $F8 


>: Port 


and 1 Mode < POIro > 


POJOSJOut 


.Equ 


$00 




;se!ect Port 0, bits 0:3 as outputs 


P0_03_ln 


.Equ 


$01 




; select Port 1, bits 0:3 as inputs 


P0JD3_fldr 


.Equ 


$02 




;select PQ, bits 0:3 as adr bits 8:11 


Stack_Ext 


.Equ 


$00 




; select external stack 


Stack- In 


.Equ 


$04 




; select internal stack 


P1_0ut 


.Equ 


$00 




; select Port 1 as outputs 


P1_ln 


.Equ 


$08 




; select Port 1 as inputs 


P1_fldr 


.Equ 


$10 




; select Port 1 as adr /data bits 0:7 


P1_Tri 


.Equ 


$18 




;put port 1 into Tri -State 


Mem-Ext 


.Equ 


$20 




; extended memory timing 


flem_Norm 


.Equ 


$00 




; normal memory timing 


P0_47JDut 


.Equ 


$00 




; select Port 6, bits 4:7 as outputs 


P0_47_ln 


.Equ 


$40 




; select Port 0, bits 4:7 as inputs 


PG_4?_fidr 


.Equ 


$80 




;seiect P0, bits 4:7 as adr bits 12:15 


> Control Register 249 


< $F9 


>: Interrupt Priority Register < Ipr > 


> 


{ To Be 


Establ 


ished } 





> Control Register 250 C $Ffi >: Interrupt Request Register C Irq > 

> { To Be Establ ished } 

> Control Register 251 < $FB >: interrupt Mask Register < Imr > 

> { To Be Establ ished } 

> Control Register 252 < $FC ): Flag Register (Flags > 

> { To Be Established } 
.LST0FF 



